Mac Mania 1/MacMania 1.toast/Hypercard/HyperCard' More/C-D/ClassroomAdministr/Classroom Administrator/SetUpStack/background_4458.txt

Text File | 1988-01-07 | 26.4 KB | 1,207 lines

-- background: 4458 from stack: in
-- bmap block id: 5769
-- flags: 0000
-- background id: 0
-- name:


-- part 2 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=29 top=84 right=121 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on MouseUp
  get the target
  put word 4 of it into num
  global code,cardname,start,finish
  put field "start date" into start
  put field "end date" into finish
  put char 1 of line 1 of bkgnd field id num into temp
  put temp & line 2 of bkgnd field id num & "Attendance" into cardname
  if hilite of bkgnd button "Tardy" is true then put "T" into code
  if hilite of bkgnd button "Absent"is true then put "A" into code
  if hilite of bkgnd button "Excused" is true then put "I" into code
  if hilite of bkgnd button "Unexcused" is true then put "U" into code
  if hilite of bkgnd button "Suspended" is true then put "S" into code
  if hilite of bkgnd button "Student Activity" is true then put "V" into code
  put hilite of bkgnd button "Edit" into choice
  if choice is true then DoEdit
  else
    DoType
  end if
  domenu "Back"
end MouseUp



On DoType
  global code,cardname
  go to card cardname
  put word 2 of item 2 of the long date into Day
  put "A" & Day into fieldname
  if word 2 of the long date is "September" then
    put code into line 1 of card field fieldname
  end if
  if word 2 of the long date is "October" then
    put code into line 2 of card field fieldname
  end if
  if word 2 of the long date is "November" then
    put code into line 3 of card field fieldname
  end if
  if word 2 of the long date is "December" then
    put code into line 4 of card field fieldname
  end if
  if word 2 of the long date is "January" then
    put code into line 5 of card field fieldname
  end if
  if word 2 of the long date is "February" then
    put code into line 6 of card field fieldname
  end if
  if word 2 of the long date is "March" then
    put code into line 7 of card field fieldname
  end if
  if word 2 of the long date is "April" then
    put code into line 8 of card field fieldname
  end if
  if word 2 of the long date is "May" then
    put code into line 9 of card field fieldname
  end if
  if word 2 of the long date is "June" then
    put code into line 10 of card field fieldname
  end if

end DoType

On DoEdit
  global code,cardname,start,finish, fieldname
  go to card cardname
  put word 2 of start into startDay
  put word 2 of finish into endDay
  if endDay is empty and startDay is not empty then
    put "A" & word 2 of start into fieldname
    DoCalcDate
    exit DoEdit
  end if
  if startDay is empty and endDay is empty then
    ask "Which day?"
    put it into start
    put "A" & word 2 of start into fieldname
    DoCalcDate
    exit DoEdit
  end if
  repeat with Day = startDay to endDay
    put "A" & Day into fieldname
    DoCalcDate
  end repeat
end DoEdit


On DoCalcDate
  global code,fieldname, start
  if word 1 of start is "Sep" then
    put code into line 1 of card field fieldname
    put code into msg
  end if
  if word 1 of start is "Oct" then
    put code into line 2 of card field fieldname
  end if
  if word 1 of start is "Nov" then
    put code into line 3 of card field fieldname
  end if
  if word 1 of start is "Dec" then
    put code into line 4 of card field fieldname
  end if
  if word 1 of start is "Jan" then
    put code into line 5 of card field fieldname
  end if
  if word 1 of start is "Feb" then
    put code into line 6 of card field fieldname
  end if
  if word 1 of start is "Mar" then
    put code into line 7 of card field fieldname
  end if
  if word 1 of start is "Apr" then
    put code into line 8 of card field fieldname
  end if
  if word 1 of start is "May" then
    put code into line 9 of card field fieldname
  end if
  if word 1 of start is "Jun" then
    put code into line 10 of card field fieldname
  end if
End DoCalcDate




-- part 3 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=29 top=124 right=161 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 4 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=30 top=164 right=201 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 5 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=30 top=205 right=242 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 6 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=29 top=244 right=281 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 7 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=29 top=283 right=320 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 8 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=108 top=85 right=122 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 9 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=108 top=124 right=161 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 10 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=109 top=164 right=201 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 11 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=109 top=206 right=243 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 12 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=109 top=245 right=282 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 13 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=109 top=283 right=320 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 14 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=181 top=85 right=122 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 15 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=181 top=125 right=162 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 16 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=182 top=165 right=202 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 17 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=182 top=206 right=243 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 18 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=182 top=246 right=283 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 19 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=183 top=284 right=321 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 20 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=251 top=85 right=122 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 21 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=251 top=126 right=163 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 22 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=252 top=166 right=203 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 24 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=252 top=206 right=243 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 25 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=253 top=246 right=283 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 26 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=253 top=284 right=321 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 27 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=325 top=86 right=123 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 28 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=325 top=125 right=162 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 29 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=325 top=165 right=202 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 30 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=325 top=206 right=243 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 31 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=325 top=247 right=284 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 32 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=326 top=285 right=322 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 34 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=406 top=85 right=122 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 35 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=407 top=125 right=162 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 36 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=408 top=166 right=203 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 37 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=408 top=205 right=242 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 38 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=409 top=244 right=281 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 33 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=409 top=282 right=319 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 40 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=117 top=43 right=60 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Date
----- HyperTalk script -----
On MouseUp
  put the long date into field "Date"
end MouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=254 top=0 right=23 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=209 top=0 right=22 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp



-- part 45 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=136 top=64 right=78 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: start date


-- part 46 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=221 top=64 right=79 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: end date


-- part 47 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=374 top=43 right=60 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Period


-- part 48 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=374 top=62 right=80 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Class


-- part 49 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=84 top=0 right=19 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attendance
----- HyperTalk script -----
On MouseUp
  ask "Which student?"
  put char 1 of word 1 of it & word 2 of it into studentname
  put studentname & "Attendance" into studentname
  go to card studentname
end MouseUp


-- part 50 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=2 top=323 right=339 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Excused
----- HyperTalk script -----
on mouseUp
  put number of bkgnd buttons - 1 into numbutts
  repeat with x = 1 to numbutts
    set hilite of bkgnd button x to false
  end repeat
  set hilite of bkgnd button "Excused" to true
  set hilite of bkgnd button "Edit" to true
end MouseUp




-- part 51 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=179 top=323 right=339 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Suspended
----- HyperTalk script -----
on mouseUp
  put number of bkgnd buttons - 1 into numbutts
  repeat with x = 1 to numbutts
    set hilite of bkgnd button x to false
  end repeat
  set hilite of bkgnd button "Suspended" to true
  set hilite of bkgnd button "Edit" to true
end MouseUp




-- part 52 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=185 top=290 right=313 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit
----- HyperTalk script -----
on mouseUp
  set hilite of bkgnd button "Tardy" to false
  set hilite of bkgnd button "Absent" to false
  set hilite of bkgnd button "Edit" to true
end mouseUp



-- part 54 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=111 top=289 right=312 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Absent
----- HyperTalk script -----
on mouseUp
  put number of bkgnd buttons into numbutts
  repeat with x = 1 to numbutts
    set hilite of bkgnd button x to false
  end repeat
  get hilite of bkgnd button "Absent"
  set hilite of bkgnd button "Absent" to true
end mouseUp



-- part 55 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=33 top=289 right=309 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tardy
----- HyperTalk script -----
on mouseUp
  put number of bkgnd buttons into numbutts
  repeat with x = 1 to numbutts
    set hilite of bkgnd button x to false
  end repeat
  set hilite of bkgnd button "Tardy" to true
end mouseUp




-- part 56 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=82 top=323 right=339 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Unexcused
----- HyperTalk script -----
on mouseUp
  put number of bkgnd buttons - 1 into numbutts
  repeat with x = 1 to numbutts
    set hilite of bkgnd button x to false
  end repeat
  set hilite of bkgnd button "Unexcused" to true
  set hilite of bkgnd button "Edit" to true
end mouseUp



-- part 57 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=274 top=323 right=339 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Student Activity
----- HyperTalk script -----
on mouseUp
  put number of bkgnd buttons - 1 into numbutts
  repeat with x = 1 to numbutts
    set hilite of bkgnd button x to false
  end repeat
  set hilite of bkgnd button "Student Activity" to true
  set hilite of bkgnd button "Edit" to true
end MouseUp




-- part 58 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=255 top=179 right=314 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Explanation
----- HyperTalk script -----
On MouseUp
  Hide field "Explanation"
end MouseUp



-- part 60 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=433 top=291 right=310 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  global period
  global class
  Hide field "Explanation"
  Hide bkgnd button "Done"
  repeat with x = 1 to 36
    put field x into field x of card "SeatingChart"
  end repeat
end mouseUp




-- part 61 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=108 top=0 right=22 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add a student
----- HyperTalk script -----
on mouseUp
  global className,Period
  Ask "What is the student's name?" with "OK" or "Cancel"
  if it is "Cancel" then exit MouseUp
  put it into StudentName
  put char 1 of word 1 of it & word 2 of it into temp
  set lockscreen to true
  push this card
  go to setupstack
  go to card "GradesTemplate"
  doMenu "Copy Card"
  pop card
  doMenu "Paste Card"
  put className into card field "Class"
  put period into card field "Period"
  put StudentName into field "Name"
  set name of this card to temp & "Grades"

  push this card
  go to card "AttendanceTemplate" of setupstack
  doMenu "Copy Card"
  pop card
  doMenu "Paste Card"
  put className into card field "Class"
  put period into card field "Period"
  put StudentName into card field "Name"
  set name of this card to temp & "Attendance"

  push this card
  go to card "ProfileTemplate" of setupstack
  doMenu "Copy Card"
  pop card
  doMenu "Paste Card"
  put StudentName into field "Name"
  set name of this card to temp & "Profile"
  go to card "seatingchart"
  set lockscreen to false
  answer "Please enter name into seating chart"
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=282 top=0 right=23 bottom=398
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete a student
----- HyperTalk script -----
on mouseUp
  push this card
  ask "Which student's records do you wish to delete?"
  if it is "Cancel" then exit mouseUp
  put char 1 of word 1 of it & word 2 of it into temp
  put temp & "Profile" into profilecard
  set lockscreen to true
  go to card profilecard
  doMenu "Delete Card"
  put temp & "Attendance" into attendancecard
  go to card attendancecard
  doMenu "Delete Card"
  put temp & "Grades" into gradescard
  go to card gradescard
  doMenu "Delete Card"
  pop card
  set lockscreen to false
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=222 top=23 right=39 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit seating chart
----- HyperTalk script -----
on mouseUp
  if hilite of bkgnd button "Edit seating chart" is true then
    repeat with x = 1 to 36
      set locktext of field x to false
    end repeat
  else
    repeat with x = 1 to 36
      set locktext of field x to true
    end repeat
  end if
end mouseUp




-- part 64 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=399 top=0 right=23 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Assignment
----- HyperTalk script -----
on mouseUp
  global assignment,assignpoints
  push this card
  ask "What is the name of the assignment?"
  put it into assignment
  ask "How many points is it worth?"
  put it into assignpoints
  set lockscreen to true
  go to card 1
  repeat with x = 1 to the number of cards
    go to card x
    get the name of this bkgnd
    if word 2 of it is quote & "Grades" & quote then
      doCheck
    end if
  end repeat
  pop card
  set lockscreen to false
end mouseUp

On doCheck
  global assignment,assignpoints
  get the number of lines in field "Column One"
  if it < 18 then
    put assignment into line it + 1 in field "Column One"
    put assignpoints into line it + 1 in field "PtsPoss1"
  else
    get the number of lines in field "Column 2"
    put assignment into line it + 1 in field "Column 2"
    put assignpoints into line it + 1 in field "PtsPoss2"
  end if
end doCheck




-- part 65 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=21 bottom=24
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push this card
  go to helper
end mouseUp



-- part 67 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=52 top=0 right=25 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grades
----- HyperTalk script -----
on mouseUp
  ask "Which student's grades do you wish to see?"
  put char 1 of word 1 of it into temp
  put temp & word 2 of it & "Grades" into cardname
  go to card cardname
end mouseUp



-- part 68 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=26 top=0 right=24 bottom=51
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to first card
end mouseUp